home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Dir / Dir.makedir < prev    next >
Text File  |  1997-01-15  |  536b  |  36 lines
  1. G4C
  2.  
  3. ; to be called from Dir.gc ONLY!
  4.  
  5. WinBig -1 -1 300 27 "Make directory"
  6. WinType 11110010
  7.  
  8. xOnLoad
  9. setscreen dir.makedir $lv_fmscreen
  10. mlv_id = $$LV_ID
  11. JoinFile $$LV_DIR "" mdr_name 
  12. update dir.makedir 1 $mdr_name
  13. guiopen dir.makedir
  14.  
  15. xOnClose
  16. lvdir   Dir.gc $mlv_id refresh          ; re-read the dir.
  17. guiquit dir.makedir
  18.  
  19. xOnQuit
  20. delvar  mdr_#?
  21.  
  22. xOnFail
  23. EZreq "Error creating directory\n$mdr_name" OK ""
  24.  
  25. ;=========================> the text gad
  26.  
  27. xTextIn  5 5 290 18 "" mdr_name "" 150
  28. gadid 1
  29. makedir $mdr_name
  30. guiclose dir.makedir
  31.  
  32.  
  33.  
  34.  
  35.  
  36.